home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / RECCALL.SAB < prev    next >
Text File  |  1991-09-18  |  1KB  |  33 lines
  1. cls
  2. display cp.dis
  3. write "RECCALL.SAB" at 2,36
  4. WRITE "Processing Today's Record Calls -- Please Wait" AT 12,17
  5. set messages off
  6. set error messages off
  7. output printer
  8. PRINT RECCALL SORTED BY ADD.CODE WHERE REC.CALL LE .#DATE
  9. print oldcall sorted by add.code where rec.call le .#date
  10. output screen
  11. WRITE "  Removing Expired" AT 12,17
  12. CHANGE REASON TO ""  IN CUR.MAST WHERE EXP.DATE LE .#DATE
  13. CHANGE REC.CALL TO "" IN CUR.MAST WHERE EXP.DATE LE .#DATE
  14. CHANGE EXP.DATE TO "" IN CUR.MAST WHERE EXP.DATE LE .#DATE
  15. change reason to "" in old.mast where exp.date le .#date
  16. change rec.call to "" in old.mast where exp.date le .#date
  17. change exp.date to "" in old.mast where exp.date le .#date
  18. cls
  19. display cp.dis
  20. write "RECCALL.SAB" AT 2,36
  21. write "Processing Court, Security, Moving and Prospect Reports" at 12,12
  22. output printer
  23. print court where court.da ge .#date and court.da < (.#date + 6)
  24. print refund where refpaid fails
  25. print work sorted by ord.numb where done fails
  26. output screen
  27. set v bn to ord.numb where count = last
  28. set messages on
  29. del row fro ordernum whe ord.numb < .bn
  30. set mes off
  31. RETURN
  32.  
  33.